home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / wb / ttmanager / rexx / ttm-showversion.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-06  |  982b  |  42 lines
  1. /* $Ver:  TTM-ShowVersion.rexx 1.1 (22.2.99) by J. Tierney
  2.  
  3.   TTManager Show Version  v1.1
  4.   2/22/99  J. Tierney <jtierney@cyberlink-inc.com>
  5.  
  6.   Purpose:  Displays the version number of the current file.
  7.  
  8.   Usage:  rx TTM-ShowVersion.rexx [UseDoVer]
  9.  
  10.     <UseDoVer> - Optional.  The script will use C:DoVer instead of C:Version.
  11. */
  12.  
  13. OPTIONS RESULTS
  14. ADDRESS 'TTMANAGER'
  15.  
  16. ARG usedover
  17.  
  18. 'GetFilename'
  19. IF rc = 5 THEN EXIT 10
  20. fname = '"' || result || '"'
  21.  
  22. IF usedover ~= '' THEN vercmd = 'C:C2/DoVer >PIPE:TTMGetVer' fname 'NOCOMM FMT "%n %v (%d.%m.%y)*n%e"'
  23. ELSE vercmd = 'C:Version >PIPE:TTMGetVer' fname 'FULL'
  24. ADDRESS COMMAND vercmd
  25.  
  26. IF ~Open('ver', 'PIPE:TTMGetVer', 'R') THEN EXIT 10
  27. vl1 = READLN('ver')
  28. vl2 = READLN('ver')
  29. CALL CLOSE('ver')
  30.  
  31. IF usedover ~= '' THEN DO
  32. /* Strip the "<filename> - " that DoVer outputs. */
  33.   l = LENGTH(fname) + 2
  34.   vl1 = SUBSTR(vl1, l)
  35. END
  36.  
  37. IF vl2 ~= '' THEN vl1 = vl1 || '*n' || vl2
  38. vl1 = '"' || vl1 || '"'
  39.  
  40. 'RequestChoice TITLE Version BODY' vl1
  41.  
  42.